home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 8 / 008.d81 / look at (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  1.7 KB  |  55 lines
  1. 10 rem   look at this
  2. 20 rem    12/20/84
  3. 30 :
  4. 40 print"[147]":poke53280,1:poke53281,0
  5. 45 c$="[179][177][171][178]"
  6. 50 printchr$(14)
  7. 60 t$="[200]ave you ever wanted to make":gosub60000
  8. 62 t$="a programmer sick?":gosub60000
  9. 64 t$="[215]ell now you can!!":gosub60000:gosub61000
  10. 66 print""
  11. 68 t$="[211]creen [215]obble":gosub60000:print"[145][145]":t$="[163][163][163][163][163][163][163][163][163][163][163][163][163]":gosub60000
  12. 70 t$="[201]dea":gosub60000:t$="by":gosub60000:t$="[202]immy [215]eiler":gosub60000:print
  13. 72 t$="[205]achine [204]anguage [210]outine":gosub60000:t$="by":gosub60000
  14. 74 t$="[193]lan [199]ardner":gosub60000:gosub61000
  15. 80 print""
  16. 82 t$="[212]his program is designed to be fun.":gosub60000
  17. 84 t$="[201]t's also designed to drive people":gosub60000
  18. 86 t$="[195][160][210][160][193][160][218][160][217] ![160]![160]!":gosub60000:print
  19. 88 t$="[212]his program makes the whole screen":gosub60000
  20. 90 t$="shake and quiver like mad!":gosub60000
  21. 92 t$="[212]ry to write a serious program with":gosub60000
  22. 94 t$="this little jewel running!!":gosub60000:gosub61000
  23. 96 print""
  24. 98 t$="[212]o stop the action, type [211][217][211]49158.":gosub60000
  25. 100 t$="[212]o start the action, type [211][217][211]49152.":gosub60000
  26. 102 print:print
  27. 104 t$="[212]his program uses the files:":gosub60000
  28. 106 t$="[215][207][194].[201].[195]":gosub60000:t$="and":gosub60000:t$="[215][207][194][160][194][207][207][212]":gosub60000
  29. 108 print:print
  30. 110 t$="[215]e hope you enjoy it!!!":gosub60000
  31. 112 t$="[200][193], [200][193], [200][193]!!!":gosub60000:gosub61000
  32. 150 print""
  33. 152 print"           1. [210][213][206][160]'[211]creen [215]obble'"
  34. 154 print"           2. [210][197][212][213][210][206][160][212][207][160][204][207][193][196][211][212][193][210]"
  35. 156 print:print"[215]hich?";
  36. 158 poke198,0:wait198,1:getk$:ifk$<>"1"andk$<>"2"then158
  37. 160 printk$
  38. 165 print"          ..... [204]oading ....."
  39. 170 ifk$="1"thenf$="wob boot"
  40. 180 ifk$="2"thenf$="hello"
  41. 190 print"[144]load"chr$(34)f$chr$(34)",8":print"run"
  42. 192 poke631,13:poke632,13:poke198,2:end
  43. 60000 rem   centering routine
  44. 60002 t=len(t$):t=20-t/2
  45. 60004 printtab(t)t$:print
  46. 60006 return
  47. 61000 rem   wait for key
  48. 61002 s=65520:poke783,peek(783)and254
  49. 61004 poke781,24:poke782,14:syss:print"<press a key>"
  50. 61006 forx=1tolen(c$):d$=mid$(c$,x,1):poke781,24:poke782,12:syss:printd$""
  51. 61007 poke781,24:poke782,28:syss:printd$""
  52. 61008 nextx
  53. 61009 ifpeek(198)=0then61006
  54. 61010 getk$:print"[147]":return
  55.